home *** CD-ROM | disk | FTP | other *** search
/ Kids' Bible Fun Pack / Kids' CD-ROM Bible Fun Pack (1997)(Education Publishing Concepts)[Mac-PC].iso / pc / BIBLELND / MISC / SCAVENGR.CST / 00073_Script_73 < prev    next >
Text File  |  1997-06-02  |  3KB  |  75 lines
  1. on gameSetUp
  2.   global gCurrentGame, gCurrentQuestion, gGameQuestionList, gWhatToFindList, gGameStatusList, scSearchItem, clue1, questionNum
  3.   repeat with I = 6 to 15
  4.     set the puppet of sprite I to 1
  5.   end repeat
  6.   set gCurrentQuestion = 1
  7.   
  8.   if gCurrentGame <> "scavenger" then
  9.     getRandomItems
  10.     set the member of sprite 6 to member "white Background"
  11.     set the loc of sprite 6 to point(345,242)
  12.     
  13.     set the member of sprite 7 to member "stitle"
  14.     set the loc of sprite 7 to point(340,79)
  15.     
  16.     set the member of sprite 8 to member getAt(gameItemsList,1) of castLib"data4"
  17.     set the loc of sprite 8 to point(167,196) 
  18.     
  19.     set the member of sprite 9 to member 100 of castLib"data4"
  20.     set the loc of sprite 9 to point(167,196)
  21.     set the ink of sprite 9 to 36
  22.     
  23.     set the member of sprite 10 to member "searchTitle2"
  24.     set the loc of sprite 10 to point(266,123) 
  25.     
  26.     set the member of sprite 11 to member "clue1Text"
  27.     set the loc of sprite 11 to point(266,151) 
  28.     
  29.     set the member of sprite 12 to member "leftArrow1"
  30.     set the loc of sprite 12 to point(280,257) 
  31.     
  32.     set the member of sprite 13 to member "rightArrow1"
  33.     set the loc of sprite 13 to point(510,257) 
  34.     
  35.     set the member of sprite 14 to member "searchButton"
  36.     set the loc of sprite 14 to point(387,257) 
  37.     
  38.     set the member of sprite 15 to member "infoText"
  39.     set the loc of sprite 15 to point(104,329) 
  40.     set questionNum = char 1 to 2 of the name of member getAt(gameItemsList,1) of castLib "data4"
  41.     searchScavenger
  42.     getRecScavenger
  43.     set the text of Member "searchtitle2" to scSearchItem 
  44.     set the text of Member "clue1Text" to clue1
  45.     updateStage
  46.   end if
  47. end gameSetUp
  48.  
  49. on getRandomItems
  50.   global gameItemsList, gameNamesList
  51.   global gCurrentGame, gCurrentQuestion, gGameQuestionList, gWhatToFindList, gGameStatusList
  52.   set gameitemsList = [0,0,0,0,0,0]
  53.   
  54.   put 1 into I
  55.   repeat while I < 7
  56.     put random(71) into temp
  57.     if temp <> getAt(gameitemsList,1) and temp <> getAt(gameitemsList,2) and temp <> getAt(gameitemsList,3) and temp <> getAt(gameitemsList,4) and temp <> getAt(gameitemsList,5) and temp <> getAt(gameitemsList,6) then
  58.       setAt(gameitemsList,I,temp)
  59.       put I+1 into I
  60.     end if
  61.   end repeat
  62.   
  63. end getRandomItems
  64.  
  65.  
  66. on playTheGame
  67.   if the memberNum of sprite 12 <> 106 then
  68.     set the member of sprite 12 to member "leftArrow1"
  69.     set the loc of sprite 12 to point(280,257) 
  70.   end if
  71.   if the memberNum of sprite 13 <> 108 then
  72.     set the member of sprite 13 to member "rightArrow1"
  73.     set the loc of sprite 13 to point(510,257) 
  74.   end if
  75. end